home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr25 / gg243774.zip / PWFOLDER.ZIP / TEST.CMD < prev    next >
OS/2 REXX Batch file  |  1992-04-09  |  584b  |  22 lines
  1. /*  */
  2. Call RxFuncadd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  3. Call SysLoadFuncs
  4.  
  5. '@echo off'
  6.  
  7. RetCode = SysCreateObject( "PWFolder", "My Lockable Folder", "<WP_DESKTOP>", "PASSWORD=wps;OBJECTID=<MyFolder>")
  8.  
  9. if RetCode then
  10.    say 'PWFolder Object created'
  11. else do
  12.    say 'Error creating object'
  13.    exit(1)
  14.    end
  15.  
  16. RetCode = SysCreateObject( "WPProgram", "Editor", "<MyFolder>", "PROGTYPE=PM;EXENAME=\OS2\E.EXE;")
  17.  
  18. say 'A Folder has been created with the password: wps'
  19. say 'select the context menu option LOCK to lock it'
  20. say 'Switch to PM to test object.'
  21.  
  22.